Cream of the Crop 26/Cream of the Crop 26.iso/program/fpkpas92.zip/SRCRTL.ZIP/RTL/DOS/IMAGE.PPI

Text File | 1997-07-01 | 6KB | 177 lines

{ FILE: IMAGE.INC zu GRAPH.PP }

procedure GetImage(x1,y1,x2,y2 : integer;var BitMap);

var
  i,linesize,target  : longint;
  ofs1,ofs2,bank1,bank2,diff : longint;
begin
  _graphresult:=grOk;
  if not isgraphmode then
  begin
    _graphresult:=grnoinitgraph;
    exit;
  end;

x1:=x1+aktviewport.x1;
y1:=y1+aktviewport.y1;
x2:=x2+aktviewport.x1;
y2:=y2+aktviewport.y1;

if (x1>_maxx) or (y1>_maxy) or (x2<0) or (y2<0) then exit;

target:=longint(@bitmap)+4;
pinteger(@bitmap)^:=x2-x1+1;
pinteger(@bitmap+2)^:=y2-y1+1;
linesize:=(x2-x1+1)*BytesPerPixel;

for i:=y1 to y2 do
  begin
    ofs1:=Y_ARRAY[i]+X_ARRAY[x1];
    ofs2:=Y_ARRAY[i]+X_ARRAY[x2];
    bank1:=ofs1 shr WinShift;
    bank2:=ofs2 shr WinShift;
    if bank1 <> AW_BANK then
      begin
        Switchbank(bank1);
        AW_BANK:=bank1;
      end;
    if bank1=bank2
      then ScreenToMem(ofs1 and WinLoMask,target,linesize)
      else begin
        diff:=(bank2 shl winshift)-ofs2;
        ScreenToMem(ofs1 and WinLoMask,target,diff-BytesPerPixel);
        Switchbank(bank2);
        AW_BANK:=bank2;
        ScreenToMem((ofs1+diff) and WinLoMask,target+diff,linesize-diff);
      end;
    target:=target+linesize;
  end;
end;

procedure PutImage(x,y : integer;var BitMap;BitBlt : word);

      var
         height,width : integer;
         diff         : integer;
         increment,i  : longint;
         source,o1,o2 : longint;
         offset       : longint;
         viewport     : viewporttype;
      begin
         _graphresult:=grOk;
         if not isgraphmode then
           begin
              _graphresult:=grnoinitgraph;
              exit;
           end;

         source:=longint(@bitmap)+4;
         Width:=pinteger(@bitmap)^;
         Increment:=longint(Width);
         height:=pinteger(@bitmap+2)^;
         { wenn ausserhalb des Screens Procedur verlassen }
         x:=x+aktviewport.x1;
         y:=y+aktviewport.y1;

         if aktviewport.clip then viewport:=aktviewport else viewport:=aktscreen;
         if (x > viewport.x2 ) or
             (y > viewport.y2 ) or
              (x+Increment < viewport.x1) or
               (y+height < viewport.y1) then exit;

           { Clip oben }
           if y < viewport.y1 then
             begin
               diff:=viewport.y1-y;
               height:=height-diff;
               source:=source+Increment*diff;
               y:=viewport.y1;
             end;
           { Clip unten }

           if y+height > viewport.y2 then
               height:=viewport.y2-y;

           { Clip links }
           if x < viewport.x1 then
             begin
               diff:=viewport.x1-x;
               Width:=Increment-diff;
               source:=source+diff;
               x:=viewport.x1;
             end;

           { clip rechts }
           if x+width > viewport.x2 then
             begin
               diff:=x+width-viewport.x2;
               Width:=Increment-diff;
             end;

 Increment:=Increment*BytesPerPixel;
 Width:=Width*BytesPerPixel;
 for i:=y to y+height-1 do
   begin
     offset:=Y_ARRAY[i] + X_ARRAY[x];
     o1:=offset shr winshift;
     o2:=( offset + width ) shr winshift;
     if o1 <> AW_BANK then
       begin
         Switchbank(o1);
         AW_BANK:=o1;
       end;
     if o1 = o2 then
     begin
       case bitblt of
         normalput : MemToScreen (source,offset and WinLoMask,width);
         andput    : MemAndScreen(source,offset and WinLoMask,width);
         orput     : MemOrScreen (source,offset and WinLoMask,width);
         xorput    : MemXorScreen(source,offset and WinLoMask,width);
         notput    : MemXorScreen(source,offset and WinLoMask,width);
       end;
     end else begin
     { Bankswitching }
       diff:=((o2 shl winshift)-offset);
       case bitblt of
         normalput : begin
                      MemToScreen (source,offset and WinLoMask,diff-BytesPerPixel);
                      Switchbank(o2); AW_BANK:=o2;
                      MemToScreen (source+diff,(offset+diff) and WinLoMask,width-diff);
                     end;
         andput    : begin
                      MemAndScreen (source,offset and WinLoMask,diff-BytesPerPixel);
                      Switchbank(o2); AW_BANK:=o2;
                      MemAndScreen (source+diff,(offset+diff) and WinLoMask,width-diff);
                     end;
         orput     : begin
                      MemOrScreen (source,offset and WinLoMask,diff-BytesPerPixel);
                      Switchbank(o2); AW_BANK:=o2;
                      MemOrScreen (source++diff,(offset+diff) and WinLoMask,width-diff);
                     end;
         xorput    : begin
                      MemXorScreen(source,offset and WinLoMask,diff-BytesPerPixel);
                      Switchbank(o2); AW_BANK:=o2;
                      MemXorScreen(source+diff,(offset+diff) and WinLoMask,width-diff);
                     end;
         notput    : begin
                      MemNotScreen(source,offset and WinLoMask,diff-BytesPerPixel);
                      Switchbank(o2); AW_BANK:=o2;
                      MemNotScreen(source+diff,(offset+diff) and WinLoMask,width-diff);
                     end;
       end; { case }
     end; { else }
     source:=source+Increment;
 end; { for i }
end;


    function ImageSize(x1,y1,x2,y2 : integer) : word;

      begin
         _graphresult:=grOk;
         ImageSize:=(x2-x1+1)*(y2-y1+1)*BytesPerPixel+4;
         { +4, da Breite und Höhe mit abgespeichert werden }
      end;